home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / multipunkt zeich (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  737b  |  30 lines
  1. 60394 REM
  2. 60395 REM *** MULTI-PUNKT SETZEN ***
  3. 60396 REM
  4. 60397 REM FA = FARBE DES PUNKTES (0-3)
  5. 60398 REM X,Y = KOORDINATEN DES PUNKTES
  6. 60399 REM
  7. 60400 GA=320*INT(Y/8)+(Y AND 7)+(8*INT(X/4))+8192:REM GRAFIKADRESSE ERRECHNEN
  8. 60405 REM * BITNUMMERN ERRECHNEN *
  9. 60410 M1=2*(3-(X AND 3))
  10. 60420 M2=M1+1
  11. 60425 REM * WELCHE FARBE ? *
  12. 60430 ON FA+1 GOTO 60450,60460,60470,60480
  13. 60440 PRINT "?FALSCHE FARBE":END
  14. 60445 REM * BITKOMBINATIONEN DER FARBEN *
  15. 60450 B1=0:B2=0:GOTO 60490
  16. 60460 B1=0:B2=1:GOTO 60490
  17. 60470 B1=1:B2=0:GOTO 60490
  18. 60480 B1=1:B2=1
  19. 60490 IF B1=0 THEN M=M1:GOSUB 60540:REM BIT1 LOESCHEN
  20. 60500 IF B1=1 THEN M=M1:GOSUB 60560:REM BIT1 SETZEN
  21. 60510 IF B2=0 THEN M=M2:GOSUB 60540:REM BIT2 LOESCHEN
  22. 60520 IF B2=1 THEN M=M2:GOSUB 60560:REM BIT2 SETZEN
  23. 60530 RETURN
  24. 60535 REM * BIT LOESCHEN *
  25. 60540 POKE GA,PEEK(GA) AND (255-2^M)
  26. 60550 RETURN
  27. 60555 REM * BIT SETZEN *
  28. 60560 POKE GA,PEEK(GA) OR 2^M
  29. 60570 RETURN
  30.